$file = $ARGV[0];
$outfile = $ARGV[1];
chomp($file);
chomp($outfile);
open(BUFF,$file);
open(WRBUFF,">$outfile");
while($line = <BUFF>)
{
	chomp($line);
	@array = split(" ",$line);
	#print $array[1]."\n";
	#$hash{$array[1]} = "k";
	if(exists $hash{$array[1]})
	{
		
	}
	else
	{
	#	print $line."\n";
		print WRBUFF $line."\n";
	}
	$hash{$array[1]} = "k";
}
